%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True %>
<% ID = Request("ID") %>
朗特科技訪客留言板
<% 'If Session("ACCESS") = "Yes" Then %>
<%
' Set conn = Server.CreateObject("ADODB.Connection")
' DBPath = Server.MapPath("GBook.mdb")
' conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
' Set rs = Server.CreateObject("ADODB.Recordset")
Set ConnGuestBook = Server.CreateObject("ADODB.Connection")
' ConnGuestBook.ConnectionTimeout = Session("ConnGuestBook_ConnectionTimeout")
' ConnGuestBook.CommandTimeout = Session("ConnGuestBook_CommandTimeout")
' ConnGuestBook.Open Session("ConnGuestBook_ConnectionString"), Session("ConnGuestBook_RuntimeUserName"), Session("ConnGuestBook_RuntimePassword")
DBPath = Server.MapPath("GBook.mdb")
ConnGuestBook.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdDeleteListing = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "DELETE FROM 訪客留言板 WHERE ( 編號 = " & ID & ")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnGuestBook
CmdDeleteListing.Open cmdTemp, , 0, 1
%>
<% Response.Redirect ("BOOK.asp") %>
<%' Else %>
You Dont Have Access To Delete
Log In And Try Again
<% 'End If %>